/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / COMMANDER / Examples_!Duplicate_!RUNIMAGE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 21 f4 20 3e 20 | 3c 44 75 70 6c 69 63 61 |...!. > |<Duplica|
|00000010| 74 65 24 44 69 72 3e 2e | 21 52 55 4e 49 4d 41 47 |te$Dir>.|!RUNIMAG|
|00000020| 45 0d 00 14 1b de 20 71 | 25 20 26 31 30 30 2c 20 |E..... q|% &100, |
|00000030| 65 72 72 62 6c 6b 25 20 | 26 31 30 30 0d 00 1e 13 |errblk% |&100....|
|00000040| de 20 74 20 34 3a 24 74 | 3d 22 54 41 53 4b 22 0d |. t 4:$t|="TASK".|
|00000050| 00 28 2b c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.(+.. "W|imp_Init|
|00000060| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 74 2c 22 |ialise",|200,!t,"|
|00000070| 44 75 70 6c 69 63 61 74 | 65 22 0d 00 32 0a f2 6d |Duplicat|e"..2..m|
|00000080| 65 6e 75 73 0d 00 3c 0f | f2 69 6e 73 74 61 6c 6c |enus..<.|.install|
|00000090| 62 69 6e 0d 00 46 39 ee | 20 85 20 c8 99 22 57 69 |bin..F9.| . .."Wi|
|000000a0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|000000b0| 20 a4 65 72 72 62 6c 6b | 28 9f 2c f6 24 29 2c 31 | .errblk|(.,.$),1|
|000000c0| 2c 22 44 75 70 6c 69 63 | 61 74 65 22 0d 00 50 05 |,"Duplic|ate"..P.|
|000000d0| f5 0d 00 5a 21 c8 99 20 | 22 57 69 6d 70 5f 50 6f |...Z!.. |"Wimp_Po|
|000000e0| 6c 6c 22 2c 30 2c 71 25 | 20 b8 20 61 63 74 69 6f |ll",0,q%| . actio|
|000000f0| 6e 25 0d 00 64 10 c8 8e | 20 61 63 74 69 6f 6e 25 |n%..d...| action%|
|00000100| 20 ca 0d 00 6e 12 c9 20 | 36 3a f2 6d 6f 75 73 65 | ...n.. |6:.mouse|
|00000110| 28 71 25 29 0d 00 78 17 | c9 20 39 3a f2 64 65 63 |(q%)..x.|. 9:.dec|
|00000120| 6f 64 65 6d 65 6e 75 28 | 71 25 29 0d 00 82 19 c9 |odemenu(|q%).....|
|00000130| 20 31 37 2c 31 38 20 3a | f2 6d 65 73 73 61 67 65 | 17,18 :|.message|
|00000140| 28 71 25 29 0d 00 8c 05 | cb 0d 00 96 07 fd 20 a3 |(q%)....|...... .|
|00000150| 0d 00 a0 04 0d 00 aa 0f | dd f2 6d 6f 75 73 65 28 |........|..mouse(|
|00000160| 71 25 29 0d 00 b4 0c 6d | 78 25 3d 71 25 21 30 0d |q%)....m|x%=q%!0.|
|00000170| 00 be 0c 6d 79 25 3d 71 | 25 21 34 0d 00 c8 0c 6d |...my%=q|%!4....m|
|00000180| 62 25 3d 71 25 21 38 0d | 00 d2 13 e7 20 71 25 21 |b%=q%!8.|.... q%!|
|00000190| 31 32 3c 3e 2d 32 20 8c | 20 e1 0d 00 dc 0c c8 8e |12<>-2 .| .......|
|000001a0| 20 6d 62 25 20 ca 0d 00 | e6 1b c9 20 26 30 32 20 | mb% ...|... &02 |
|000001b0| 3a 20 6d 65 6e 75 69 63 | 6f 6e 25 3d 71 25 21 31 |: menuic|on%=q%!1|
|000001c0| 36 0d 00 f0 40 20 c8 99 | 20 22 57 69 6d 70 5f 43 |6...@ ..| "Wimp_C|
|000001d0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 69 63 6f 6e |reateMen|u",,icon|
|000001e0| 6d 65 6e 75 25 2c 6d 78 | 25 2d 69 63 6f 6e 6d 65 |menu%,mx|%-iconme|
|000001f0| 6e 75 25 21 31 36 2f 32 | 2d 32 34 2c 39 36 2b 34 |nu%!16/2|-24,96+4|
|00000200| 34 0d 00 fa 05 cb 0d 01 | 04 05 e1 0d 01 0e 14 dd |4.......|........|
|00000210| f2 64 65 63 6f 64 65 6d | 65 6e 75 28 71 25 29 0d |.decodem|enu(q%).|
|00000220| 01 18 0c c8 8e 20 21 71 | 25 20 ca 0d 01 22 1e c9 |..... !q|% ..."..|
|00000230| 20 30 3a 20 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f | 0: .. "|Wimp_Clo|
|00000240| 73 65 44 6f 77 6e 22 3a | e0 0d 01 2c 05 cb 0d 01 |seDown":|...,....|
|00000250| 36 05 e1 0d 01 40 11 dd | f2 6d 65 73 73 61 67 65 |6....@..|.message|
|00000260| 28 71 25 29 0d 01 4a 0e | c8 8e 20 71 25 21 31 36 |(q%)..J.|.. q%!16|
|00000270| 20 ca 0d 01 54 1f c9 20 | 30 20 3a 20 c8 99 20 22 | ...T.. |0 : .. "|
|00000280| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 3a |Wimp_Clo|seDown":|
|00000290| e0 0d 01 5e 28 c9 20 33 | 20 3a 20 f2 64 75 70 6c |...^(. 3| : .dupl|
|000002a0| 69 63 61 74 65 66 69 6c | 65 28 a4 73 74 72 69 6e |icatefil|e(.strin|
|000002b0| 67 28 71 25 2b 34 34 29 | 29 0d 01 68 05 cb 0d 01 |g(q%+44)|)..h....|
|000002c0| 72 05 e1 0d 01 7c 1a dd | f2 64 75 70 6c 69 63 61 |r....|..|.duplica|
|000002d0| 74 65 66 69 6c 65 28 66 | 69 6c 65 24 29 0d 01 86 |tefile(f|ile$)...|
|000002e0| 37 71 25 21 31 32 3d 71 | 25 21 38 3a 71 25 21 31 |7q%!12=q|%!8:q%!1|
|000002f0| 36 3d 34 3a c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |6=4:.. "|Wimp_Sen|
|00000300| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 71 25 2c |dMessage|",17,q%,|
|00000310| 71 25 21 34 0d 01 90 2a | ff 28 22 2a 43 6f 70 79 |q%!4...*|.("*Copy|
|00000320| 20 22 2b 66 69 6c 65 24 | 2b 22 20 22 2b 66 69 6c | "+file$|+" "+fil|
|00000330| 65 24 2b 22 31 20 52 20 | 53 20 7e 43 22 29 0d 01 |e$+"1 R |S ~C")..|
|00000340| 9a 05 e1 0d 01 a4 04 0d | 01 ae 10 dd f2 69 6e 73 |........|.....ins|
|00000350| 74 61 6c 6c 62 69 6e 0d | 01 b8 19 ea 20 73 78 25 |tallbin.|.... sx%|
|00000360| 2c 73 79 25 2c 73 6d 25 | 2c 70 78 25 2c 70 79 25 |,sy%,sm%|,px%,py%|
|00000370| 0d 01 c2 12 73 70 72 69 | 74 65 24 3d 22 49 63 6f |....spri|te$="Ico|
|00000380| 6e 22 0d 01 cc 10 74 65 | 78 74 24 3d 22 43 6f 70 |n"....te|xt$="Cop|
|00000390| 79 22 0d 01 d6 2b de 20 | 73 70 72 69 74 65 25 20 |y"...+. |sprite% |
|000003a0| 28 a9 28 73 70 72 69 74 | 65 24 29 2b 31 29 2c 74 |(.(sprit|e$)+1),t|
|000003b0| 65 78 74 25 20 a9 28 74 | 65 78 74 24 29 0d 01 e0 |ext% .(t|ext$)...|
|000003c0| 3e 24 73 70 72 69 74 65 | 25 3d 22 53 22 2b 73 70 |>$sprite|%="S"+sp|
|000003d0| 72 69 74 65 24 20 3a f4 | 20 56 61 6c 69 64 61 74 |rite$ :.| Validat|
|000003e0| 69 6f 6e 20 73 74 72 69 | 6e 67 20 74 6f 20 64 65 |ion stri|ng to de|
|000003f0| 66 69 6e 65 20 73 70 72 | 69 74 65 0d 01 ea 10 24 |fine spr|ite....$|
|00000400| 74 65 78 74 25 3d 74 65 | 78 74 24 0d 01 f4 34 c8 |text%=te|xt$...4.|
|00000410| 99 20 22 57 69 6d 70 5f | 53 70 72 69 74 65 4f 70 |. "Wimp_|SpriteOp|
|00000420| 22 2c 34 30 2c 2c 73 70 | 72 69 74 65 24 20 b8 20 |",40,,sp|rite$ . |
|00000430| 2c 2c 2c 73 78 25 2c 73 | 79 25 2c 2c 73 6d 25 0d |,,,sx%,s|y%,,sm%.|
|00000440| 01 fe 39 c8 99 20 22 4f | 53 5f 52 65 61 64 4d 6f |..9.. "O|S_ReadMo|
|00000450| 64 65 56 61 72 69 61 62 | 6c 65 22 2c 73 6d 25 2c |deVariab|le",sm%,|
|00000460| 34 20 b8 20 2c 2c 70 78 | 25 20 3a 20 73 78 25 3d |4 . ,,px|% : sx%=|
|00000470| 73 78 25 3c 3c 70 78 25 | 0d 02 08 39 c8 99 20 22 |sx%<<px%|...9.. "|
|00000480| 4f 53 5f 52 65 61 64 4d | 6f 64 65 56 61 72 69 61 |OS_ReadM|odeVaria|
|00000490| 62 6c 65 22 2c 73 6d 25 | 2c 35 20 b8 20 2c 2c 70 |ble",sm%|,5 . ,,p|
|000004a0| 79 25 20 3a 20 73 79 25 | 3d 73 79 25 3c 3c 70 79 |y% : sy%|=sy%<<py|
|000004b0| 25 0d 02 12 2a e7 20 a9 | 28 74 65 78 74 24 29 20 |%...*. .|(text$) |
|000004c0| 2a 31 36 20 3e 20 73 78 | 25 20 8c 20 73 78 25 3d |*16 > sx|% . sx%=|
|000004d0| a9 28 74 65 78 74 24 29 | 2a 31 36 0d 02 1c 0a 21 |.(text$)|*16....!|
|000004e0| 71 25 3d 2d 31 0d 02 26 | 2f 71 25 21 34 3d 30 3a |q%=-1..&|/q%!4=0:|
|000004f0| 71 25 21 38 3d 2d 31 36 | 3a 71 25 21 31 32 3d 71 |q%!8=-16|:q%!12=q|
|00000500| 25 21 34 2b 73 78 25 3a | 71 25 21 31 36 3d 32 30 |%!4+sx%:|q%!16=20|
|00000510| 2b 73 79 25 0d 02 30 13 | 71 25 21 32 30 3d 26 31 |+sy%..0.|q%!20=&1|
|00000520| 37 30 30 33 31 30 42 0d | 02 3a 0f 71 25 21 32 34 |700310B.|.:.q%!24|
|00000530| 3d 74 65 78 74 25 0d 02 | 44 11 71 25 21 32 38 3d |=text%..|D.q%!28=|
|00000540| 73 70 72 69 74 65 25 0d | 02 4e 12 71 25 21 33 32 |sprite%.|.N.q%!32|
|00000550| 3d a9 28 74 65 78 74 24 | 29 0d 02 58 22 c8 99 20 |=.(text$|)..X".. |
|00000560| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00000570| 22 2c 2c 71 25 20 b8 20 | 21 71 25 0d 02 62 05 e1 |",,q% . |!q%..b..|
|00000580| 0d 02 6c 04 0d 02 76 0b | dd f2 6d 65 6e 75 73 0d |..l...v.|..menus.|
|00000590| 02 80 17 de 20 69 63 6f | 6e 6d 65 6e 75 25 20 32 |.... ico|nmenu% 2|
|000005a0| 38 2b 31 2a 32 34 0d 02 | 8a 1c 24 69 63 6f 6e 6d |8+1*24..|..$iconm|
|000005b0| 65 6e 75 25 20 3d 20 22 | 44 75 70 6c 69 63 61 74 |enu% = "|Duplicat|
|000005c0| 65 22 0d 02 94 12 69 63 | 6f 6e 6d 65 6e 75 25 3f |e"....ic|onmenu%?|
|000005d0| 31 32 3d 37 0d 02 9e 14 | 69 63 6f 6e 6d 65 6e 75 |12=7....|iconmenu|
|000005e0| 25 3f 31 33 20 3d 20 32 | 0d 02 a8 12 69 63 6f 6e |%?13 = 2|....icon|
|000005f0| 6d 65 6e 75 25 3f 31 34 | 3d 37 0d 02 b2 12 69 63 |menu%?14|=7....ic|
|00000600| 6f 6e 6d 65 6e 75 25 3f | 31 35 3d 30 0d 02 bc 20 |onmenu%?|15=0... |
|00000610| 69 63 6f 6e 6d 65 6e 75 | 25 21 31 36 20 3d 20 a9 |iconmenu|%!16 = .|
|00000620| 22 51 75 69 74 22 2a 31 | 36 2b 31 32 0d 02 c6 13 |"Quit"*1|6+12....|
|00000630| 69 63 6f 6e 6d 65 6e 75 | 25 21 32 30 3d 34 34 0d |iconmenu|%!20=44.|
|00000640| 02 d0 12 69 63 6f 6e 6d | 65 6e 75 25 21 32 34 3d |...iconm|enu%!24=|
|00000650| 30 0d 02 da 14 69 63 6f | 6e 6d 65 6e 75 25 21 32 |0....ico|nmenu%!2|
|00000660| 38 3d 26 38 30 0d 02 e4 | 13 69 63 6f 6e 6d 65 6e |8=&80...|.iconmen|
|00000670| 75 25 21 33 32 3d 2d 31 | 0d 02 ee 1a 69 63 6f 6e |u%!32=-1|....icon|
|00000680| 6d 65 6e 75 25 21 33 36 | 3d 26 30 37 30 30 30 30 |menu%!36|=&070000|
|00000690| 30 31 0d 02 f8 1a 24 28 | 69 63 6f 6e 6d 65 6e 75 |01....$(|iconmenu|
|000006a0| 25 2b 34 30 29 3d 22 51 | 75 69 74 22 0d 03 02 05 |%+40)="Q|uit"....|
|000006b0| e1 0d 03 0c 04 0d 03 16 | 10 dd a4 73 74 72 69 6e |........|...strin|
|000006c0| 67 28 61 25 29 0d 03 20 | 2d ea 20 62 24 3a 62 24 |g(a%).. |-. b$:b$|
|000006d0| 3d 22 22 3a c8 95 20 3f | 61 25 3c 3e 30 3a 62 24 |="":.. ?|a%<>0:b$|
|000006e0| 2b 3d bd 3f 61 25 3a 61 | 25 2b 3d 31 3a ce 3a 3d |+=.?a%:a|%+=1:.:=|
|000006f0| 62 24 0d 03 2a 04 0d 03 | 34 1a dd a4 65 72 72 62 |b$..*...|4...errb|
|00000700| 6c 6b 28 65 72 72 25 2c | 72 65 70 6f 72 74 24 29 |lk(err%,|report$)|
|00000710| 0d 03 3e 2b e7 20 9f 3d | 36 37 37 38 38 20 8c 20 |..>+. .=|67788 . |
|00000720| 72 65 70 6f 72 74 24 3d | 22 46 69 6c 65 6e 61 6d |report$=|"Filenam|
|00000730| 65 20 74 6f 6f 20 4c 6f | 6e 67 22 0d 03 48 26 21 |e too Lo|ng"..H&!|
|00000740| 65 72 72 62 6c 6b 25 3d | 65 72 72 25 3a 24 28 65 |errblk%=|err%:$(e|
|00000750| 72 72 62 6c 6b 25 2b 34 | 29 3d 72 65 70 6f 72 74 |rrblk%+4|)=report|
|00000760| 24 0d 03 52 1f 65 72 72 | 62 6c 6b 25 3f 28 34 2b |$..R.err|blk%?(4+|
|00000770| a9 24 28 65 72 72 62 6c | 6b 25 2b 34 29 29 3d 30 |.$(errbl|k%+4))=0|
|00000780| 0d 03 5c 0c 3d 65 72 72 | 62 6c 6b 25 0d 03 66 04 |..\.=err|blk%..f.|
|00000790| 0d 03 70 04 0d ff       |                         |..p...  |        |
+--------+-------------------------+-------------------------+--------+--------+